home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / divers / cdps.e < prev    next >
Text File  |  1994-05-02  |  2KB  |  42 lines
  1. /********************************************************/
  2. /* ChangeDefPubScreen v0.0a  © 1993 NasGûl              */
  3. /********************************************************/
  4. OPT OSVERSION=37                       /* OS 2.XX */
  5. MODULE 'intuition/screens'             /* FOR SCREEN */
  6. ENUM ARG_NAMESCR,ARG_INFO,NUMARGS      /* ARGUMENT CLI */
  7. ENUM ER_NONE,ER_LOCKPUBSCR,ER_BADARGS  /* ERROR        */
  8. DEF rdargs=NIL                         /* FOR ReadArgs() */
  9. PROC main() HANDLE /*"main()"*/
  10.     DEF args[NUMARGS]:LIST,templ,x                /* FOR ARGUMENT */
  11.     DEF version[256]:STRING,pubname[256]:STRING   /* STRING VERSION,NAME OF THE DEFAULT PUBSCREEN */
  12.     DEF scr                                       /* POINTER TO SCREEN */
  13.     StrCopy(version,'$VER:ChangeDefPubScr v0.0a ® NasGûl (08-12-93)',50)
  14.     FOR x:=0 TO NUMARGS-1 DO args[x]:=0
  15.     templ:='NAME,INFO/S'
  16.     rdargs:=ReadArgs(templ,args,NIL)
  17.     IF rdargs=NIL THEN Raise(ER_BADARGS)
  18.     IF args[ARG_INFO]
  19.         GetDefaultPubScreen(pubname)
  20.         Raise(ER_NONE)
  21.     ENDIF
  22.     IF args[ARG_NAMESCR] THEN StrCopy(pubname,args[ARG_NAMESCR],ALL) ELSE StrCopy(pubname,'Workbench',ALL)
  23.     IF scr:=LockPubScreen(pubname)
  24.         SetDefaultPubScreen(pubname)
  25.         SetPubScreenModes(SHANGHAI)
  26.         UnlockPubScreen(NIL,scr)
  27.     ELSE
  28.         Raise(ER_LOCKPUBSCR)
  29.     ENDIF
  30.     Raise(ER_NONE)
  31. EXCEPT
  32.     SELECT exception
  33.         CASE ER_BADARGS;    WriteF('Mauvais paramètre(s) !\n')
  34.         CASE ER_LOCKPUBSCR; WriteF('L\aécran public spécifié n\aexiste pas !\n')
  35.         CASE ER_NONE;       WriteF('Nouveau PublicScreen par défaut :\s.\n',pubname)
  36.     ENDSELECT
  37. ENDPROC
  38.  
  39.  
  40.  
  41.  
  42.